************80
TIMESTAMP prints the current YMDHMS date as a time stamp.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=8), | public | :: | ampm | ||||
| integer(kind=4), | public | :: | d | ||||
| integer(kind=4), | public | :: | h | ||||
| integer(kind=4), | public | :: | m | ||||
| integer(kind=4), | public | :: | mm | ||||
| character(len=9), | public, | parameter, dimension(12) | :: | month | = | (/'January ', 'February ', 'March ', 'April ', 'May ', 'June ', 'July ', 'August ', 'September', 'October ', 'November ', 'December '/) | |
| integer(kind=4), | public | :: | n | ||||
| integer(kind=4), | public | :: | s | ||||
| integer(kind=4), | public | :: | values(8) | ||||
| integer(kind=4), | public | :: | y |